Public Class CPOrder
    Dim _dtPoDate As Date
    Dim _dtDelDate As Date
    Dim _dblTotalAmt As Double
    Dim _strRemarks As String
    Dim _intPoID As Integer
    Dim _strPoSeqID As String
    Dim _intVendorID As Integer
    Dim _cPorderItem() As CBillItem

    Public Property poDate() As Date
        Get
            Return _dtPoDate
        End Get
        Set(ByVal value As Date)
            _dtPoDate = value
        End Set
    End Property
    Public Property delDate() As Date
        Get
            Return _dtDelDate
        End Get
        Set(ByVal value As Date)
            _dtDelDate = value
        End Set
    End Property
    Public Property totalAmt() As Double
        Get
            Return _dblTotalAmt
        End Get
        Set(ByVal value As Double)
            _dblTotalAmt = value
        End Set
    End Property
    Public Property Remarks() As String
        Get
            Return _strRemarks
        End Get
        Set(ByVal value As String)
            _strRemarks = value
        End Set
    End Property
    Public Property vendorID() As Integer
        Get
            Return _intVendorID
        End Get
        Set(ByVal value As Integer)
            _intVendorID = value
        End Set
    End Property
    Public Property PoID() As Integer
        Get
            Return _intPoID
        End Get
        Set(ByVal value As Integer)
            _intPoID = value
        End Set
    End Property
    Public Property PoSeqID() As String
        Get
            Return _strPoSeqID
        End Get
        Set(ByVal value As String)
            _strPoSeqID = value
        End Set
    End Property
    Public Property PorderItem() As CBillItem
        Get
            Return _cPorderItem(0)
        End Get
        Set(ByVal value As CBillItem)
            _cPorderItem(0) = value
        End Set
    End Property

End Class
